(Fformat_network_address): Removed unused locals p, cp, and i.

diff --git a/src/process.c b/src/process.c
index 83b25928a55a55dfafb310c6800cec01af04721f..13395389d8316a145c34ce70d71768c0be51eeae 100644 (file)
--- a/src/process.c
+++ b/src/process.c
@@ -1059,10 +1059,6 @@ Returns nil if format of ADDRESS is invalid.  */)
      (address)
      Lisp_Object address;
 {
-  register struct Lisp_Vector *p;
-  register unsigned char *cp;
-  register int i;
-
   if (NILP (address))
     return Qnil;